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Introduction 


Welcome to Fun To Program with Speed Walk¬ 
er! This book has been designed for anyone who 
already knows some BASIC and is ready to use it 
to create interesting programs. We assume that 
you have learned these BASIC commands: 

REM FOR/NEXT END 

PRINT IF/THEN 
INPUT GOTO 

Being a programmer is like being a detective-- 

you must constantly uncover mysteries in programs. 

Programmers spend half their lives searching for 
clues that tell them what went wrong in their 
programs. To make it easier for you to read, to 
modify, and to debug your programs, in this book 
we use structured programming. This means that 
we plan the main parts of the program first and 
then refine the details. We use plenty of REM 
statements to document the meaning of the varia¬ 
bles we use and what the parts of the program 
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do. And we indent parts of the program to show 
how they relate to each other. 

In the vein of being detectives, we are going to 
learn techniques that are involved with mysteries: 
telling fortunes, coding and decoding secret 
messages, and moving objects around the screen. 
Each chapter adds new concepts and commands 
and leads to a new game using combinations of 
these techniques. Every new idea is explained 
thoroughly, with examples for you to type in and 
experiment with. By the last chapter we will have 
built up a much more complex game than the one 
we start with, but by that time you will be familiar 
with all the parts that make up the program. 

At the end of each chapter we present ideas for 
variations that you could make in the program. In 
a sense, programs are never finished--you can 
always add one more improvement. And that's 
the beauty of programming: you can take your 
own original ideas and implement them to the best 
of your ability. So, although we present programs 
in these chapters for you to enter and run, the 
programs are really open-ended. We want you to 
modify and improve them, add new elements, and 
make up your own games. Above all, we want 
you to have fun! 


II 



What's Your 
Fortune? 


Imagine yourself opening a fortune cookie. Did 
you ever wonder how that particular fortune got 
into your cookie? Did somebody want you to 
have that one? Probably not. Someone must have 
sat down and made up a lot of fortunes, and 
someone must have put them all into the cookies* 
but they did this in a "random" way. In other 
words, you could have gotten any fortune that 
had been written. 

Computers can do many things, and one of 
them is telling fortunes. They don't work by magic, 
though. As you already know, someone has to 
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program them-tell them exactly what steps to 
follow. We are going to write a fortune-telling 
program, and we'll follow the same steps as we 
would in making fortunes for cookies: 

1. Make up a lot of fortunes and store them. 

2. Pick a fortune at random. 

3. Show the fortune. 

In this book we are going to structure programs 
so that they are easy to read and to change. We 
will do this by dividing the program into steps 
such as the three above, called subroutines. The 
main body of the program tells the computer 
where to find each subroutine. The main body 
reads as if it were a table of contents to the 
program. 

We also use a lot of REMarks to tell us what 
everything in the program does: what variables 
we are using, what each subroutine does. Here is 
how the main body of the fortune-telling program 
looks: 

ID REM-WHAT • S YOUR FORTUNE?- 

20 REMF$(4) : ARRAY OF 4 FORTUNES 
30 REM J : COUNTER 
40 REM N : RANDOM NUMBER 

SO REM- 

100 G0SUB1000: REM —STORE FORTUNES 
200 G0SUB20D0: REM—PICK A FORTUNE 
300 G0SUB 3000: REM —DISPLAY IT 
400 END 
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The first REMark is the name of the program. 
The next three lines name all the variables we will 
use in the program. Lines 100, 200, and 300 show 
where the three subroutines we will use are locat¬ 
ed. GOSUB 1000 tells the computer to go to line 
1000, execute all the instructions there until it 
comes to the command RETURN, at which point it 
should come back to where it left off. 


STORING THE FORTUNES IN 
AN ARRAY 



Now let's begin writing the subroutines. The 
subroutine at line 1000 will store as many fortunes 
as we want in DATA statements. Here is the begin¬ 
ning of the subroutine: 


1000 REPI ——STORE THE FORTUNES- 
1010 DATA ’ ’YOU WILL BE RICH’ ’ 
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1D50 DATA ' ’YOU ARE EXTREMELY FUNNY*' 

103D DATA * ’YOU WILL BE A COMPUTER PROGRAMMER* * 
1040 DATA * ’YOU WILL GO ON A LONG TRIP' * 


Feel free to use your own fortunes-just make 
sure you begin each line with DATA and put 
quotes around the data you write. DATA state¬ 
ments can come anywhere in a program. When 
the computer finds a READ statement it automati¬ 
cally looks for DATA to read. It starts looking at 
the beginning of the program and keeps looking 
until it finds some. The next time it gets a READ 
command it continues from the last piece of data. 
We are using four pieces of data, so we need 
four READ commands: 


1DS0 DIM F$ (4) 
lObD FOR J = 1 TO 4 
1070 READ F* (J) 
lOflO NEXT J 
10T0 RETURN 

Line 1050 notifies the computer that F$ is not a 
single variable but will have four elements, or 
cells. The group of four fortunes is called an array 
-several pieces of data sharing the same variable 
name. 

The loop in lines 1060 to 1080 instructs the 
computer to READ four pieces of DATA and store 
them in F$: the first string (or fortune) is called 
F$(l), the second is called F$(2), and so on. 
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Line 1090 makes the computer return to the 
main program and continue from where it left off. 
It will now execute line 200, which tells it to go to 
the subroutine at line 2000 and pick a fortune. 


CHOOSING A FORTUNE 
AT RANDOM 



Now that we have four fortunes stored as 
F$(l), F$(2), F$(3), and F$(4), we need to pick 
one of them at random. The Commodore 64 has a 
built-in function that can choose a different num¬ 
ber each time you use it. If we can get it to pick 
the number 1, 2, 3, or 4, we can use that number 
to select one of the four cells of F$. We will use 
the random function so much in this book that we 
had better spend some time understanding how it 
works. 
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Let's work on a little test program. If you are 
typing in the FORTUNES program, save it and 
type NEW. Then type in the following: 

ID F0RX= 1T010 

ED PRINT RND(l) 

3D NEXT X 

That's the whole program. Run it a few times 
and study the numbers you get. They should all be 
decimals between 0 and 1. We need numbers big¬ 
ger than 1, so change line 20 like this: 

ED PRINT *4 * RND (1) 

Run this version a few times. Now all the num¬ 
bers should be between 0 and 3.999.... They 
won't quite get up to 4. 

For our fortunes we need the integers 1, 2, 3, 
or 4--we don't want the decimal part of the 
number. BASIC has an integer function that chops 
off the decimal part. Change line 20 again: 

ED PRINT INTCM* RND Cl) ) 

and run it. Now the computer picks decimal num¬ 
bers at random, multiplies them by four, and 
chops off the decimal. But there is still one thing 
wrong-notice that the range of the numbers is 
from 0 to 3. We want a range from 1 to 4, so one 
more change is necessary: 
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2D PRINTINT(4*RND(1> ) +1 


This version should give us the numbers we 
want. Using this formula, we can write the whole 
subroutine in three lines: 

2DDD REM-PICK A RANDOM NUMBER- 

2010 N = INT (4 * RND (1) ) +1 
2020 RETURN 


We are getting a random number from 1 to 4 
and storing it as N. All we have to do now is to 
show fortune number N. 


DISPLAYING THE FORTUNE 



You should have no trouble in seeing how this 
subroutine works: 
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3000 REII-DISPLAY THE FORTUNE- 

3010 PRINT CHR$(14?) 

3030 PRINT • ’HERE'S YOUR FORTUNE: ’ ’ 

3030 PRINT:PRINT 
3040 PRINT F$(N) 

3050 RETURN 

Line 3010 clears the screen and moves the cur¬ 
sor to the upper left-hand corner so that whatever 
we PRINT next will be at the top of the screen. 
You can clear the screen by simply pressing the 
key marked CLR-HOME at the top right of the 
keyboard while holding the shift key down. In a 
program, you could PRINT this key in this way: 
PRINT "(CLR-HOME)" where instead of the (CLR- 
HOME) you would actually press the key and the 
shift. If you look at the list of characters in the 
appendix of the Commodore 64 Users' Guide you 
will see that character 147 is the same as CLR- 
HOME. PRINTing CHR$(147) is the way we'll do it 
in this book. 
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PUTTING THE 
PROGRAM TOGETHER 



All the subroutines are written and the program 
is ready to go. Even though you can see the whole 
program by looking at various places in this chap¬ 
ter, it's a good idea to see it all in one place; 


ID REM-lilHAT * S YOUR FORTUNE?- 

ED REMF$(4) : ARRAY OF 4 FORTUNES 
3D REM J : COUNTER 
4D REH N : RANDOM NUMBER 

SD REM- 

1DD GOSUB1000: REM—STORE FORTUNES 
EDO GOSUB E000: REM—PICK A FORTUNE 
300 GOSUB 3000: REM—DISPLAY IT 
400 END 

1000 REM-STORE THE FORTUNES- 

1010 DATA ’ ’YOU WILL BE RICH’ ’ 

10E0 DATA • ’YOU ARE EXTREMELY FUNNY’ ’ 

1030 DATA ’ ’YOU LULL BE A COMPUTER PROGRAMMER’ ’ 
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1D40 DATA • 'YOU WILL GO ON A LONG TRIP' ’ 
105D Din F* (4 > 

IDbD FOR J=1 TO 4 
1D7D READ F$(J) 

IDflO NEXT J 
imD RETURN 

EDDD REM-PICK A RANDOM NUMBER- 

EDIO N= INT (4 * RND (1) ) +1 
EDED RETURN 

3D00 REM-DISPLAY THE FORTUNE- 

3D10 PRINT CHR$(147) 

3DE0 PRINT ' 'HERE'S YOUR FORTUNE: ’ • 
3030 PRINT:PRINT 
3D4B PRINT F$ (N) 

3DS0 RETURN 


VARIATIONS 



There are always many things you can do to 
improve a program and to make it more elabo- 
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rate. At the end of each chapter we will suggest a 
few variations you can try and give you hints on 
how to get started. Here are variations for our 
fortune cookie program. 

1. Four fortunes may not seem like enough of a 
variety to you. You can make up and store as 
many as you wish. You will, however, have to 
change several parts of the program: 

a. Add more DATA lines in the first subroutine. 

b. Change the number in lines 1050 and 1060. 

c. Also change the 4 in the random function 
(line 2010). 

2. Display two (or more) fortunes: Suppose two 
people want to see their fortunes at the same time. 
You would need to pick two fortunes -- let's call 
them N1 and N2: 

E010 Nl= INT (4 * RND (1) ) +1 
E01S NE= INT(4*RND(1) ) +1 

In the last subroutine, you would display both 
N1 and N2. In this way you could store and print 
any number of fortunes. 
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2 

a- A Secret Code 


Have you ever used a secret code to communi¬ 
cate with a friend? All codes have rules to 
follow—if you know the rules, you can decode a 
message with no trouble. Computers can code 
and decode very easily, as long as you program 
in the rules. In this chapter we will write a game 
program for two people to play. The first will type 
in a message. The Commodore 64 will take the 
message, change it into a code, and then show it 
to the second player, who will try to decode it. 

There are many, many different codes we could 
use. Here we'll use a reverse code: the computer 
will take the message and display it backwards. 
The second player will have to read from right to 
left to figure it out: 

?SIHT DAER UOY NAC 

If you can, you'll be able to decode everything 
in this game. Here is the main body of the 
program: 
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10 REM-SECRET CODE- 

SO REI1 m : THE MESSAGE 

30 REM L$ : A LETTER IN THE MESSAGE 

40 REM C$ : THE CODE 

SO REM A$ : ANSWER 

bO REM J : COUNTER 

70 REM- 

100 GOSUB1000: REM—GET THE MESSAGE 
300 GOSUB 3000: REM—CODE THE MESSAGE 
300 GOSUB 3000: REM—(2UIZ 
400 END 

The main body shows us that there are five 
variable names we will use, and three sections of 
the program. 


GETTING THE MESSAGE 



' HEY LOOK! SOMEONE SENT 
YOU A DISC FOR YOUR Y 
COMPUTER... DO YOU «— v 
KNOW A "KILLER 
KILOBYTE"? 


In the subroutine at line 1000, we ask the sec¬ 
ond player not to watch while the first player 
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types in the message. The message will be stored 
as M$: 


1000 REM-GET THE MESSAGE- 

1010 PRINT CHR$<147) 

1020 PRINT • 'TELL YOUR FRIEND NOT TO WATCH’' 
1030 PRINT ’ ’WHILE YOU TYPE YOUR MESSAGE. ’ ’ 
1040 PRINT:PRINT 

1050 PRINT ' ’TYPE THE MESSAGE-. THEN PRESS 
RETURN:•• 

10b0 INPUT M$ 

1070 RETURN 


REVERSING THE MESSAGE 


[I SENT KILOBYTE { 
( UP THE RIVER 
l TWO YE(\RS 
V AGO. 


(iHuesi 

" IE'S BACK 
DOWN 
HE RIVER 
NOW. 


Now the program has a string of characters 
called M$ -- any group of letters or numbers or 
other keyboard characters such as dollar signs or 
parentheses could be in the string. We need to 
reverse all the characters in M$ and store them in 
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a new variable we will call C$ (for code). The 
procedure will be as follows: 

1. Take the last character of M$ and make it 
the first character of C$. 

2. Make the second-to-last character of M$ the 
second character of C$. 

3. Make the third-to-last character of M$ the 
third character of C$. 

4. Follow this procedure until we get to the last 
character of M$, which will become the 

first character of C$. 

Suppose the message is just the word "HELLO". 
The last character of M$ would be "O", so "O" 
will be the first character of C$. Then, L will be the 
second character of C$. When we finish the 
coding, C$ should be 

"OLLEH". 

The Commodore 64 has a special built-in func¬ 
tion that can pick out any character you wish from 
inside a string of characters. Let's experiment to 
see how it works. First type, 

M$= "HORSE” 

Then ask the Commodore to 


print niDSdis-^-.i) 

(and press return, of course.) 
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The Commodore should respond with the letter 
S, because S is character number 4 in M$. Now 
try this command: 

PRINT I1ID$(I1$i3i2) 

The Commodore will show you two characters 
in M$, starting at character number 3. You should 
see the letters RS when you press return. To use 
the MID$ function you need three pieces of infor¬ 
mation inside the parentheses: 

(name of string, starting character, how many 
characters) 

In place of the numbers you may use variable 
names. For example, tell the Commodore that 

J =S 

and then tell it to 

PRINT I1ID$ () 

In other words, you want to see 1 character of 
M$, starting at character number J, or 5. You 
should see the letter E. What if J is 4? Then 
MID$(M$,J,1) is the letter S. By changing the val¬ 
ue of J we could look at all the characters in M$. 

But how do we know how many characters 
there are in M$? 

Another Commodore function tells us this fact. 
Try this: 
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PRINT LEN(!1$) 


LEN stands for the length of any string you put 
inside the parentheses. Let's change M$ as 
follows: 

11$ = "HITHERE! " 

PRINT LEN 01$) 

If you type in these commands, after the second 
time you press return you will see that the length 
of M$ is 9. The space and the exclamation point 
count because they are both part of the string of 
characters. 

Before we write out the subroutine, let's use 
these new functions in a short test program, just as 
we did in the first chapter for the random func¬ 
tion. The best way to understand any new comput¬ 
er concept is to use it in the simplest program you 
can imagine. 

If you are already typing in our program, save 
it, type NEW, and type in the following test: 

ID 11$ = "HELP" 

2D FOR J = 1 TO 4 

3D PRINT MID$( 11$-. J-.1) 

4D NEXT J 

Run this program--the output should be the four 
letters in HELP displayed one to a line on the 
screen. The first time through the loop J equaled 1 
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so the first letter of M$ was printed. The second 
time the second letter was printed, and so on. 
Now make this change: 

ID FORJ = 4T01 STEP-1 


Run the program again. This time the letters are 
displayed in reverse order. The first time through 
the loop J equaled 4 so the fourth letter was 
displayed. J decreased by 1 every time through 
the loop, so the second time J equaled 3 and the 
third letter was displayed. Now make one more 
change: 

10 FOR J = LEN 

The program should run exactly the same. The 
computer simply substituted the number 4 for 
LEN(M$) because there are four characters in M$. 
Because the computer can do this, we do not have 
to know how many characters there are in M$ in 
advance. 

Now we're ready for the coding subroutine: 

2D00 REM-REVERSE THE MESSAGE- 

2010 FOR J = LEN (M$) TO 1 STEP -1 
2020 L$ = MID$ (F1$-iJil) 

2030 C4 = C$ + L$ 

2040 NEXT J 
2050 RETURN 
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The routine has only a few steps. The 
FOR/NEXT loop tells the computer to count down 
starting from the last character until it gets to the 
first character of M$. If M$ is the word "CAT" 
the loop will be executed three times. The first time 
J will equal 3, the second time J will be 2, and the 
third time J will be 1. 

L$ stands for one letter in M$. If M$ is "CAT", 
the first time through the loop L$ will be "T", the 
second time L$ will be "A", and the last time L$ 
will be "C". 

Line 2030 takes each L$ and adds it on to the 
end of C$ (the code). Before we start there is 
nothing in C$, so the first L$ becomes C$ by itself. 
After the first time through the loop, C$ will be 
"T". After the second time, L$ will be "A" and 
gets added to the end of C$--C$ will now be 
"TA". After the last time through, "C" will get 
added and make C$ "TAC". The original mes¬ 
sage is now reversed. 
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QUIZZING THE 
SECOND PLAYER 



Now that we have the original message (M$) 
and the coded version (C$) the rest is easy. We 
clear the screen and ask the second player to look 
at C$ and type in the original message. We'll call 
the second player's answer A$. If A$ matches M$ 
then the player is correct. 

3000 REM-flUIZ- 

3010 PRINT CHR$ (147) 

3050 PRINT ’ 'ASK YOUR FRIEND TO TRY' ’ 

3030 PRINT ’ 'TO DECODE THIS MESSAGE: ’' 

3040 PRINT:PRINT:PRINT C$ 

3050 PRINT: PRINT ’ 'TYPE YOUR ANSWER HERE: ’ ’ 
30U0 PRINT:INPUT A$ 

3070 IF A* = M$ THEN PRINT ' 'THAT'S IT! ’ ’ 

3060 IF A* < >M$ THEN PRINT ’ 'SORRY-, THE MESSAGE 
WAS: "iM$ 

30H0 RETURN 
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THE WHOLE PROGRAM 

/ivegot rr!! 



Once again, we will print the whole program in 
one piece so you can see all the parts of it at 
once. 


10 REM-SECRET CODE- 

SO REM 11$ : THE MESSAGE 

30 REM L$ : A LETTER IN THE MESSAGE 

MO REM C$ : THEC0I>E 

SO REM A$ : ANSWER 

bO REM J : COUNTER 

70 REM- 

100 G0SUB1000: REM—GET THE MESSAGE 
S00 GOSUB S000: REM—CODE THE MESSAGE 
300 GOSUB 3000: REM—(3UIZ 
400 END 

1000 REM-GET THE MESSAGE- 

1010 PRINT CHR$ (147) 

1030 PRINT ' 'TELL YOUR FRIEND NOT TO WATCH'' 
1030 PRINT ' 'WHILE YOU TYPE YOUR MESSAGE. •' 
10400 PRINT:PRINT 
1050 PRINT ' 'TYPE THE MESSAGE, THEN 
PRESS RETURN:" 
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IDbO input n$ 

1D7D RETURN 

2000 REM-REVERSE THE MESSAGE- 

201D FOR J = LEN (M*) TO 1 STEP -1 
2020 L$ = MID*(M*-,J-,1) 

2030 C$ = C$ + L$ 

2D40 NEXT J 
2050 RETURN 

300D REM- QUIZ - 

3010 PRINT CHR$ (147) 

3020 PRINT • 'ASK YOUR FRIEND TO TRY' ’ 

3D30 PRINT ' ’TO DECODE THIS MESSAGE: • ’ 

3D4D PRINT:PRINT:PRINT C$ 

3D50 PRINT: PRINT ' ’TYPE YOUR ANSWER HERE:'' 
30b0 PRINT:INPUT A$ 

3070 IF A$ = M$ THEN PRINT ' ’ THAT ’ S IT! ” 
3DflO IF A$ < > M$ THEN PRINT ’ ’ SORRY-. THE 
MESSAGE WAS: ”=,M$ 

3010 RETURN 


VARIATIONS 



22 









There are many changes we could make in this 
game. For one, we could change the code. For 
another, we could have a set of messages already 
stored for the computer to choose. These are two 
of the things we'll do in the next chapter. 

Let's work on one other change here. Our game 
now gives the second player only one chance to 
decode the message. Do you think it would be 
better to give several chances? If you do, here's 
how we could go about it. The beginning of the 
QUIZ subroutine (lines 3000 to 3050) will be just 
the same: we put C$ on the screen and ask the 
player to decode it. 

The rest of the subroutine needs to be changed. 
Instead of getting one input, we create a loop that 
goes around three times and gets an answer each 
time. Each time we must check to see if A$ equals 
M$. If it does, that means the player is right, so 
we exit from the loop. 

30b0 FOR J = 1 TO 3 

3070 PRINT 1 ' TYPE YOUR ANSWER: ’ ’ 

3080 INPUT A* 

30=10 IF A$ = fl* THEN PRINT • • THAT ’ S 
RIGHT! GOTO3130 

3100 IF A$ < > m THEN PRINT * ’ SORRY. • * i 

3110 NEXT J 

3120 PRINT "THE MESSAGE WAS: "iI1$ 

3130 RETURN 

Notice the semicolon (;) at the end of line 3100. 
At the end of a PRINT statement, the semicolon 
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makes sure that the next text that gets printed will 
be on the same line of the screen. If the player 
gets the answer wrong all three times, the first two 
times the response will be: 

SORRY. TYPE YOUR ANSWER: 

The third time the computer will respond: 

SORRY. THE MESSAGE WAS: YOU WILL BE RICH 

or whatever the fortune was at that time. 
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3 Coded 

Messages 


In the last chapter our game used a message 
that a player had to type in. Each time you ran 
the game you had to type a new message. There 
are a couple of reasons why this is not the best 
way to play the game. It can get a little bit tiring, 
and the second player might look over your shoul¬ 
der and see the message, making it very easy to 
decode. 

A better idea would be to have a lot of mes¬ 
sages already stored in the program and have the 
computer pick one of them at random and code it. 



HI! I'M MICRO MINNIE. 
LJHHT CAN I DO FOR 




PLUG IN THE 
COMPUTER, MY 
BACK IS 
KILLING 
ME! 
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Does this idea sound familiar? It should. In Chap¬ 
ter 1 we learned how to store messages and pick 
one at random, and in Chapter 2 we learned how 
to code a message. 

In this chapter we'll do two things. First, we'll 
combine the first two programs to make our new 
one that will pick the message at random and 
code it. Then we'll investigate using another code 
in the program or using two codes in the same 
program. 

Here is the main body of our new program: 

ID REM-CODED MESSAGES- 

20 REH M$(4): ARRAY OF 4 MESSAGES 
3D REM J : COUNTER 

4D REMN : RANDOM NUMBER 

SD REM L$ : A LETTER IN THE MESSAGE 
t0 REM C$ : THE CODED MESSAGE 
7D REM M$ : THE ORIGINAL MESSAGE 

AO REM- 

100 GOSUB1000: REM—STORE THE MESSAGES 
200 GOSUB 2000: REM—PICK ONE AT RANDOM 
3D0 GOSUB 3000: REM—CODE IT 
400 GOSUB 4000: REM—(3UIZ 
500 END 

You are already familiar with each of these 
subroutines. The first two come from the program 
in Chapter 1, and the last two are from Chapter 
2. Only a few changes are necessary. 

Look at subroutine 1000 in Chapter 1, called 
STORE FORTUNES. Here we are using messages 
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instead of fortunes, so we'll call the array M$(4) 
instead of F$(4). Make this change, and also write 
any messages you want in place of the fortunes in 
the DATA lines. Otherwise, the subroutine is just 
the same. 

There are no changes at all in the second 
subroutine. We still pick a random number called N. 

The third subroutine in our new program, 
CODE IT, is the same subroutine that we used in 
Chapter 2 to REVERSE THE MESSAGE. In that 
program it was the second subroutine, but here it 
is the third, so you will have to change the line 
numbers from the 2000s to 3000s. Also, in Chap¬ 
ter 2 we had only one message in the program, so 
we called it M$. But now our message could be 
any of the four messages stored in the array 
M$(4). We have just picked a random number 
called N, so the message we want to code is 
called M$(N). One simple change will take care of 
this difference. Insert the following line at the 
beginning of the subroutine: 

3005 n$ = f14 (N) 

This means that whichever message was picked 
at random will now be called M$ for the rest of 
the program. In this way the rest of the program 
can remain as it is. 

The last subroutine, QUIZ, is identical to the last 
subroutine in Chapter 2. Remember, though, to 
change the line numbers from 3000s to 4000s 
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since we have four subroutines in our new 
program. 


ANOTHER CODE 



With a few changes we have combined two 
simpler programs into a more sophisticated one. 
The new program will select a message at 
random, code it, and ask a player to decode it. 

Let's make another improvement. As it stcrnds, 
our program always uses the same code. If some¬ 
one plays the game a number of times, he or she 
will probably catch on to the code and then the 
game will cease to be fun. Let's write a subroutine 
that codes the message in a different way. Then 
we can use both codes in the program, having the 
computer pick at random which code to use each 
time. 

28 






There are probably thousands of different 
codes you could dream up. Our first code simply 
reversed the message. Another code that is used 
often is to insert letters between the letters of the 
message. For example the code for HELLO could 
be HXEXLXLXOX. One easy change in subroutine 
3000 will take care of this: 


3000 REfl-CODE IT- 

3005 M$ = n$(N) 

3010 FOR J = 1 TO LEN(PI$) 
3020 L$ = f1ID$ (H$iJil) 
3030 C$ = C$ + L$+ "X" 
3040 NEXT J 
3050 RETURN 


There are really two changes. In line 3010 we j 
count forwards instead of backwards because we 
don't want the characters of the message to be 
reversed this time. In line 3030 we add a letter of 
the message and also an X to the code each time 
through the loop. 

Of course, you could use any letter in place of 
the X in the code. But is this code too easy to 
read? What if we picked a letter at random and 
used it instead of the X in line 3030? Then HELLO 
might look like this when it's coded: HREUL- 
BLIOW. That really is harder to read! 

To program this, you have to learn about two 
more BASIC functions. Every character used by 
the computer has a code number. The code is 
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called the ASCII code and most computers use it. 
The ASCII number for the letter A is 65. B is 66, C 
is 67, and so on until Z, which has the code num¬ 
ber 90. You can prove this for yourself. Type 

PRINT ASC (' • A’') or PRINT ASC( "T") 

or whichever character you want. 

The ASC function takes a letter and changes it 
into a number. We want to do just the opposite - 
when we use the RND(l) function we get a ran¬ 
dom number. We need to change the number into 
a letter. The BASIC function CHR$ does just this. 
Type 

PRINT CHR$(LS) 

and the computer returns the letter A, because A 
is character number 65 in the ASCII list. The CHR$ 
function is the opposite of the ASC function. 

Now let's change our CODE IT subroutine so 
that each time through the loop we get a random 
integer from 1 to 26 (because there are 26 letters 
in the alphabet) and use that integer in the CHR$ 
function to get a letter. In this way we get random 
letters that we can add to the code instead of 
adding an X every time: 

3000 REM-CODE IT- 

3005 M$ = M$(N) 

3010 FOR J = 1 TO LENOIR) 
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3020 = 

3030 R = INT (2b * RND (1) ) + bS 
3040 C$ = C$ + L$ + CHR$(R) 

3050 NEXT J 
30U3 RETURN 

In line 3030 notice that we add 65 to the ran¬ 
dom number. We want the number to be between 
65 and 90 because these are the ASCII codes for 
A and Z. We don't want any random numbers 
between 1 and 64. 

Also notice that line 3040 adds three strings 
together each time through the loop: what was in 
the code already (C$), the next letter of the mes¬ 
sage (L$), and the letter picked at random 
(CHR$(R)). 


ONE CODE OR THE OTHER 
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Now that we have two ways to code the 
messages, we can use one of them or the other in 
the program. Even better, we can use BOTH of 
them in the same program and let the computer 
choose which way to code the message each time 
you run it. 

To do this, we need to include both subroutines 
in the program. Since they cannot start at the 
same line number, let's say that the reverse code 
routine will be at line 3000 and the insert routine 
at line 3500. The routines will begin like this: 

3000 REN-REVERSE CODE- 

and 

3500 REN-INSERT CODE- 

You know the details of each routine, and you 
can fill them in. The full program is listed later in 
the chapter. 

To get the computer to choose between the two 
subroutines we need to modify the main body of 
the program. Here is what the main body will look 
like, starting after the REMarks: 

100 G0SUB1000: REN—STORE THE NESSAGES 
EDO G0SUB E000: REN—PICK ONE AT RAND0N 
ES0 S = INT (E * RND (1) ) +1 
300 ON S G0SUB 30003500: REN—DO 
THE CODING 

400 G0SUB 4000: REN—(3UIZ 
500 END 


32 








As you can see, we are using the random func¬ 
tion once again, this time to pick either a 1 or a 2 
and store it as S. If S is 1, we want the program 
to do subroutine 3000. If S is 2, subroutine 3500 
should be executed. 

The ON _ GOSUB command in line 300 

does just this. It means, if S is 1, go to the first 
subroutine listed; if S is 2, go to the second. If we 
had three different coding subroutines and the last 
one began at line 3800, we could make S a ran¬ 
dom number from 1 to 3 and change line 300 as 
follows: 

300 ON S GOSUB 3000-.3500-.3600 


THE WHOLE PROGRAM 



Here is a listing of the final version of our 
program. It stores some messages in an array, 
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picks one of them at random to code, codes it 
using one of two methods, and asks a player to 
try to decode it. 


10 

20 

3D 

40 

50 

U3 

70 

ao 

as 

10 

100 

200 

250 

300 

400 

500 

1000 

1010 

1020 

1030 

1040 

1050 

10b0 

1070 

ioao 

lO'lO 
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REM- 

-CODED MESSAGES- 

REM M$ (4) 

ARRAY OF 4 MESSAGES 

REM J 

COUNTER 

REMN 

RANDOM MESSAGE NUMBER 

REMS 

RANDOM SUBROUTINE NUMBER 

REMR 

RANDOM LETTER NUMBER 

REM L$ 

A LETTER IN THE MESSAGE 

REM C$ 

THE CODED MESSAGE 

REM M$ 

REM- 

THE ORIGINAL MESSAGE 


GOSUB1000: REP1—STORE THE MESSAGES 
G0SUB 2000: REI1—PICK ONE AT RANDOM 
S = INT (2 * RND (1) ) +1 
ON S GOSUB 30D0-.3500: REM—DO 
THE CODING 

GOSUB 400D: REM—flUIZ 
END 

REM-STORE THE MESSAGES- 

DATA • 'HAVE A GOOD DAY' • 

DATA * ’SEE YOU TOMORROW'' 

DATA ' 'MEET ME AT THE OLD OAK 
TREE” 

DATA ' 'THIS IS A SECRET 
MESSAGE’' 

DIM M$ (4) 

FOR J = 1 TO 4 
READ M$ (J) 

NEXT J 
RETURN 








2000 REM-RANDOM MESSAGE NUMBER- 

2010 N = INT (4 * RND (1) ) +1 
2020 RETURN 

3000 REM-REVERSE CODE- 

300S M* = M$CN) 

3010 FOR J = LEN (M$) TO 1 STEP -1 
3020 L$ = MID$(M$-.J-.l) 

3030 C$ = C$ + L$ 

3040 NEXT J 
3050 RETURN 

3500 REM-INSERT CODE- 

3505 M$ = M$ (4) 

3510 FOR J = 1 TO LEN(M$) 

3520 L* = MID$CM$-.J-.l) 

3530 R = INT (2b * RND (1) ) + fc.5 
3540 C$ = C$ + L$ + CHR$(R) 

3550 NEXT J 
35b0 RETURN 

4000 REM-flUIZ- 

4010 PRINT CHR$(14?) 

4020 PRINT ' ' ASK YOUR FRIEND TO TRY'' 

4030 PRINT • 'TO DECODE THIS MESSAGE: • • 

4040 PRINT:PRINT:PRINT C$ 

4050 PRINT: PRINT ' ’TYPE YOUR ANSWER HERE: ’ • 
40b0 INPUT A$ 

4070 IF A* = M$ THEN PRINT ’' THAT 'SIT! " 

4060 IF A$<> M$ THEN PRINT ’ ’SORRY-. THE MESSAGE 
WAS: '' iM$ 

40T0 RETURN 


This program is fairly long, but since we built it 
a step at a time it should not be difficult to follow. 
Notice that we are now using the random function 
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three times: we pick the message at random,we 
pick the code subroutine at random, and we pick 
letters at random to insert in the message. 


VARIATIONS 



By this time we have covered several improve¬ 
ments that you could make in the program. Here 
are a few that you could try on your own: 

1. Change the number of messages stored in 
the first subroutine, and let the program choose 
from among them. 

2. Choose and display more than one message 
to be decoded. 

3. Give the player more than one chance to 
decode the message. 

Here are two other variations that have not 
been covered before but that you could easily 
incorporate in the program: 
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1. Instead of having just letters inserted 
between characters of the message, you could 
insert any keyboard character at random, includ¬ 
ing asterisks and exclamation points. HINT: Check 
the characters starting at CHR$(33) up to 
CHR$(65). Remember, in line 3030 we added 65 
to the random number because the letter A is 
character number 65. 

2. If you run the program you will notice that 
starting with the second word of the message, 
there is a random character before the first letter 
as well as after each character. That is because a 
space is also a character, and each space in the 
message is part of the message - our subroutine 
puts a random letter after each space. If you 
don't like this effect, you can tell the computer to 
ignore spaces if it comes across them. Here is one 
way to add this command to the INSERT CODE 
subroutine: 

3525 IF L$ = CHR$ (32) TIEN C$ = « + L*: C0T0 3550 

CHR$(32) is a space. This line tells the computer 
that if the character is a space, just add the space 
to the code-skip the random letter-and go on to 
the next character in the message. 
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is, using any of the characters on the keyboard 
and making it seem to move. 

We will start with a race between two initials. 
On the left side of the screen we'll place the first 
initials of the two players. When someone presses 
return to start the race, the initials will take off, at 
different speeds. When one of them reaches the 
finish line, the program will anounce who won. 
Each time you run this program, a random speed 
will be picked for each initial, so that each could 
win each time. 

The four main parts of the program, as well as 
the variables we will use, are shown in the main 
body: 

ID REM-INITIAL RACE- 

ED REM A$ : THE FIRST INITIAL 
ES REM B$ : THE SECOND INITIAL 
3D REM A : ASCII CODE FOR A$ 

35 REM B : ASCII CODE FOR B$ 

4D REM SA : SPEED FOR FIRST INITIAL 
45 REM SB : SPEED FOR SECOND INITIAL 
5D REM PA : POSITION OF INITIAL A 
55 REM PB : POSITION OF INITIAL B 
bO REM U* : THE WINNER- 
bS REM R$ : A RESPONSE 
7D REM J : A COUNTER 
75 REM M$ : A TEXT MESSAGE 
AO REM L$ : A LETTER IN M$ 

55 REM C : ASCII CODE FOR L$ 

‘ID REM-- 
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100 GOSUB1000: REM-GET INITIALS 

500 GOSUB5000:REH-SETUP 

300 GOSUB 3000: REH-THE RACE 

400 GOSUB 4000: REM-THE WINNER 

500 END 


The first subroutine gets the initials of two play¬ 
ers so that they can race against each other. Eve¬ 
rything in this routine should be familiar to you. 
From this point on, however, and through the rest 
of this book, we are going to handle all input and 
output in a new way. 

The normal output command is PRINT, which 
displays some text on the screen. If the screen is 
full and you issue a PRINT command, all the text 
will scroll upward. This is all right if you are put¬ 
ting only text messages on the screen. From now 
on, however, we want to set up the screen to 
display a race or a game course and have it 
remain the way we set it up. We want some parts 
of the screen to remain where we put them. 

This means that we have to move around the 
screen to display text. For instance, we might want 
to put a message near the bottom of the screen, 
then draw an initial near the top. One way to do 
this on the Commodore 64 is to use the arrow 
keys in a program. You can insert commands to 
move the cursor left, right, up, and down. Or you 
can use the HOME key to move to the top line 
(that's the HOME-CLR key without the capital 

40 




shift). This method of moving around the screen is 
fairly simple-just move the cursor where you want 
it and either PRINT text there or INPUT data. 

The method we are going to use here, however, 
takes advantage of another feature of the 
Commodore. The POKE command, which we will 
discuss in detail later, draws any character at any 
screen location. If you know the characters of text 
you want to output, you select screen locations 
(anywhere on the screen) and POKE them there. 
For input, we will use the GET command, which 
gets one character of data from the keyboard at 
a time without putting it on the screen. Then we'll 
use the POKE command to display the input where 
we want it. 

Knowing these techniques will add a lot of pow¬ 
er to your programming ability. They will put you 
in complete control of all the input and output in 
your program. They will also give us an opportu¬ 
nity to explore the Commodore's color capability, 
since you can choose the colors for characters that 
you POKE onto the screen. 

Subroutine 2000 will set up the screen color 
and set all the variables we will need for the race. 
The third and fourth subroutines will use the POKE 
command to display output. Subroutine 3000 will 
animate the initials across the screen so that they 
appear to race. Subroutine 4000 will use the 
POKE command to display a message about the 
winner of the race. In Chapter 5 we'll use our new 
input technique. 


41 




GETTING THE INITIALS 



First we need to get two initials to race against 
each other. 


100D REM-GET INITIALS- 

1010 PRINT CHR$ (147 

1020 PRINT ’ ’TYPE THE FIRST INITIAL OF PLAYER 
# 1 :” 

1030 INPUT A$ 

1040 PRINT:PRINT ’ ’AND THE FIRST INITIAL OF 
PLAYER #2:’’ 

1050 INPUT B$ 

lObD PRINT:PRINT • ’PRESS RETURN TO START THE 
RACE:’' 

1070 INPUT R$ 

IDflO RETURN 

CHR$(147), remember, is the character for 
CLR-HOME. PRINTing it clears the entire screen 
and puts the cursor on the top line. The players 

42 








type in their first initials and we store them as A$ 
and B$. When someone presses the return key the 
subroutine will end. 


SETTING UP 



This subroutine handles several little tasks neces¬ 
sary for the race. It selects a character set, a 
screen and background color, screen locations for 
the initials, and random numbers for speeds for 
the two initials. 

2000 REM-SETUP- 

2010 POKE S3272-.23: REd—SELECT CHARACTER SET 2 
2020 POKE 532A1-.2: REd—SCREEN COLOR RED 
2030 PRINT CHR$ (147): REd—CLEAR THE SCREEN 
2040 POKE 532A1-.1: REd—SCREEN COLOR WHITE 
2050 PA = 12bfl:PB = 134fl 
20b0 A = ASC(A$) :B = ASC(B$) 
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E07D POKE PA-.A: POKE PB-.B 
EOAO SA = INT (E * RND (1) ) +1 
EOT SB = INT (E * RND (1) ) +1 
E1DD FOR J = 1 TO !□□□: NEXT J 
E11D RETURN 


We use the POKE command for several pur¬ 
poses in this subroutine. As you probably know, 
data is stored inside a computer in memory loca¬ 
tions (also called bytes). You can change the value 
stored in a memory location with the command 
POKE, which must be followed by two numbers 
separated by a comma. The first number is the 
address to be changed and the second is the value 
to put in it. 

Certain memory locations are reserved by the 
Commodore 64 to store special data. Address 
53272 stores the information about which charac¬ 
ter set to use. The Commodore has two character 
sets available for you to use, but you can use only 
one at a time. POKE 53272,21 will switch to set 1, 
and POKE 53272,23 to set 2. By the way, you can 
do the same thing directly from the keyboard by 
holding down the Commodore key (lower left- 
hand corner of the keyboard) and the shift key. 
We need to use set number 2 because we are 
going to use ASCII numbers to represent charac¬ 
ters on the screen. You will remember from Chap¬ 
ter 3 that every character has an ASCII code 
number: A is 65, B is 66, etc. In character set 2 the 
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letters A through Z are code numbers 65 through 
90, just as in the ASCII set. Character set 1 also 
has the capital letters, but their code numbers are 
different. See Appendix E of the User's Guide for 
a complete listing of the sets. 

Another reserved memory address is 53281, 
which stores the number for the screen color. 
There are 16 colors: black is 0, white is 1, red is 2, 
and so on. POKE 53281,0 will change the screen 
to black. You can try out the other colors by pok¬ 
ing other numbers up to 15 into address 53281. 
Line 2020 in our routine changes the screen color 
to red, line 2030 clears the screen, and line 2040 
changes the color to white. We are left with a 
white screen. Why did we bother changing it to 
red? Because we need a different color for draw¬ 
ing (poking) text on the screen, and this method 
stores the color red for our drawing color--we will 
have red text on a white screen. 

Now to put the initials on the screen. The Com¬ 
modore 64 screen has 25 rows with 40 characters 
per row. Each spot on the screen has its own loca¬ 
tion number. The upper lefthand location is 1024, 
the one next to it is 1025, and so on across the 
first row, which ends at location 1063. The second 
row begins at 1064 and ends at 1103. The last 
screen location (the bottom righthand corner) is 
numbered 2023-1000 locations altogether. 

In dealing with 1000 different screen locations 
it is most useful to have a map to refer to. Appen- 

45 



dix G of the Commodore 64 User's Guide has 
one, or you can make your own. We will put the 
first initial on row 7, column 5, which is screen 
location 1268. The second initial will go two rows 
under the first, at location 1348. Line 2050 of the 
subroutine assigns these numbers to PA and PB, 
which stand for the position of initials A and B. 
We need to store them because later we will 
change the positions as the initials move across the 
screen. 

Line 2060 gets the ASCII code numbers for the 
two initials and calls them A and B. We need the 
code numbers rather than the characters them¬ 
selves for the command in line 2070. POKE PA,A 
means put character A into address 1268. The 
way we put a character on the screen is to POKE 
its code number into the screen address. POKE 
PB,B means poke the code number B into address 
1348--initial B will appear at screen location 
1348. 

Lines 2080 and 2090 pick random numbers for 
initials A and B. Each number could be a 1 or a 2. 
We will use these numbers to decide how many 
columns each initial skips on each move. If the 
random number picked for initial A is 2 and the 
number for B is 1, initial A will move 2 columns 
per move and win the race. 

Line 2100 pauses briefly to let the players look 
at the initials before the race starts. 
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ANIMATION 


MANNY HAS WRITTEN A PRO&RAt 
TO CONNECT MY COMPUTER JO 
ALL THE OTHERS IN TOWN..., 

AND TAKE CONTROL. 

OF THEM ! 


(BIG DEAL, 
KILLER.f 


The third subroutine moves the initials across 
the screen. To understand how it works, let's inves¬ 
tigate animation on the Commodore 64. As we 
did before in learning a new concept, we'll write a 
small test program. If you are typing in the race 
program, save it and type NEW before entering 
this one. 

The kind of animation we will be doing is called 
"character animation." This means that we make 
people believe that something is moving across the 
screen by printing a character on the screen, eras¬ 
ing it, printing the same character a little distance 
away, erasing it, and so on. If this is done quickly 
enough, the character seems to move. 

This little program moves the letter Z from 
screen location 1104 to location 1124--that is, 
from the left side of the third row to the middle of 
that row. We assume that the screen has been 
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cleared, the screen color has been set, and charac¬ 
ter set 2 chosen, as we did above. 


ID POKE 1104,ID 
20 FOR SL = U04 TO 1123 
3D POKE SL-,32 

40 POKE SL+1,10 

SO FOR J =1 TO 100: NEXT J 
LD NEXT SL 

Line 10 puts a Z at location 1104. If we didn't 
know the code number for Z, we could have writ¬ 
ten POKE 1104,ASC(''Z"). The loop in lines 20 
through 60 erases the Z at its present location and 
displays it one location to the right. (SL stands for 
screen location.) The loop goes only to 1123 
because the last time through, when SL is 23, line 
40 will display the Z at SL+1, or 1124. This is 
where we wanted the Z to end up. Notice the 
short pause in line 50. Without it, the letter would 
probably seem to move too quickly. You should 
experiment with the length of the pause until it 
seems right to you. 

You should also experiment with the other vari¬ 
ables: change the beginning and ending location 
numbers, change the code number, and have SL 
increase by STEP 2 or STEP 3 to see the effect. All 
of our animation will work in a way similar to this. 
One difference in this program, however, is that 
we don't necessarily want to move one column at 
a time across the screen. We have picked two 
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random numbers (SA and SB) that will control 
where to POKE the initials. 


THE RACE 



We have chosen starting positions for the 
initials, locations 1268 and 1348. They start on 
the 5th column of their rows. We also need to 
decide where the finish line should be. Let's say 
that whichever initial moves 32 columns first will 
win. That means the finish line for initial A is loca¬ 
tion 1300, and the finish for B is 1380. 

We need one more variable for the race. When 
one of the initials has won, we need to store that 
initial as W$ so that we can announce who the 
winner was. 

3000 REM-THE RACE- 

3010 REM: MOVE THE FIRST INITIAL 
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3020 POKE PA-i 32 
3030 PA = PA + SA 
3040 POKE PA-iA 

3050 IF PA > 1300 THEN III* =A$: GOTO 3130 
30b0 REfl: I10VE THE SECOND INITIAL 
3070 P0KEPB-.32 
3060 PB = PB + SB 
30^0 POKE PB-.B 

3100 IF PB > 1360 THEN U$ =B$: GOTO 3130 
311D FOR J = 1 TO 100: NEXT J 
3120 GOTO 3020 
313D RETURN 

Lines 3020 to 3050 move initial A. Line 3020 
erases it at its position (character 32 is a space). 
Line 3030 adds its random number to its position- 
that is, either a 1 or a 2 will be added to its screen 
location. Line 3040 displays the initial at its new 
position. Line 3050 checks to see if it has won. If it 
has, then initial A is stored as W$ and we skip to 
the end of the subroutine. 

Lines 3070 to 3100 do exactly the same thing 
with initial B: erase it, add to its position number, 
display it there, and check if it has won. 

The pause in line 3110 slows down the anima¬ 
tion a bit, and line 3120 goes back to moving the 
first initial. The initials continue moving until one of 
them crosses its finish line, and then we proceed to 
the last subroutine. THE WINNER. Now we want to 
POKE a message onto the screen. The POKE com¬ 
mand deals with only one character at a time, so 
we need to go through a series of steps: 
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1. Store the message as a variable (M$). 

2. Investigate M$ character by character: 

a. Use the MID$ function to get a character 
at a time. 

b. Use the ASC function to get the code 
number for that character. 

c. Use POKE to place each character next to 
the last. 

First we will display THE WINNER IS: on the 
18th row of the screen; that is, starting at location 
1704. 

4000 REM-THE WINNER- 

4010 0$ = ' * THE WINNER IS: ’' 

4050 FOR J = 1 TO LEN (f1$) 

4030 L$ = I1ID$(M$-.J-.1) 

4040 C = ASC(L$) 

40S0 POKE 1703+J iC 

40U3 NEXT J 

The loop in lines 4020 to 4060 goes through 
M$ one character at a time. Remember that we 
don't have to count how long M$ is--the LEN func¬ 
tion does this for us. Each time through the loop 
L$ becomes the next character in the string. A is 
the code number for that character. Line 4050 
POKEs that character onto the screen at location 
1703+J. Since J is 1 the first time through, the 
character will be displayed at location 1703+1, 
or 1704. The next character will be at 1705, and 
so on. 
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4D7D POKE 171fliASC (li)$) 
HOflD RETURN 


All that remains is to display the name of the 
winner next to the rest of the message. If you 
count screen locations, you will find that the initial 
should be at location 1718. Notice that we use the 
ASC function in the POKE command to get the 
code number for W$. 


VARIATIONS 



Because of the length of the animation and dis¬ 
play subroutines, from here on we are not printing 
the whole program at the end of the chapter. You 
can easily put it together by looking through the 
chapter. Remember, though, that the little test ani¬ 
mation program is not part of the Initial Race 
program. 
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Here are several suggestions for improving the 
program and learning more about the Commodore 
64: 

1) SCREEN FORMAT: Improve the screen appear¬ 
ance by displaying the words START and FINISH or 
by putting a border around the race trace. Use the 
WINNER subroutine for a model in displaying text. 

2) MORE COLOR: Add more color to the screen. 
Another interesting feature of this computer is that 
the color for each screen location is stored. In our 
program we stored the color red in all the screen 
locations. The color memory map is just like the 
screen memory map except that is starts at location 
55296 instead of 1024. The command POKE 
55296,6 will store the color blue in the first screen 
location; if you then POKE 1024,ASC("T"), a blue T 
will appear there. A little subtraction tells us that the 
color memory number is 54272 greater than the 
screen location number. In line 4050 we POKE the 
character at location 1703+J. Suppose that just 
before we did this we changed the color of that 
spot. Just POKE 1703+J+54272,color. What 
color? Pick a random number from 0 to 15: R = 
INT(16 + RND(1)). 

3) MORE SPEEDS: We used speeds of only 1 or 
2. You could easily get higher speeds by changing 
the formula in the two lines that pick the random 
numbers SA and SB. 

4) MORE RACERS: Have three players race. Set 
three random speeds, put all three initials on the 
screen, and move all three of them. 
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Burst 

the Balloon 


The initial race was a fairly simple game--the 
whole game was the race. Animation can be used 
as a part of more complex games, though. Imag¬ 
ine this screen: on the right is a "balloon" and on 
the left is a person's initial. On the lower half of 
the screen the player gets arithmetic problems 
which he or she tries to solve. When an answer is 
correct, the player's initial moves across the screen 
and "bursts" the balloon, which turns out to have 
a message inside it. 

This game combines many elements we have 
used before: animation, random numbers, using 
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DATA statements, giving the player several tries. 
Good games are created by combining many dif¬ 
ferent elements, but none of the elements has to 
be complicated by itself. 

One more programming technique will be intro¬ 
duced. As mentioned in the last chapter, now that 
we are designing our screens and moving around 
them, we are not using PRINT and INPUT com¬ 
mands for output and input. We developed a 
method for displaying text in the last chapter. 
Here we will use the GET command to transfer 
input one character at a time into the program. 

5 REM-BURST THE BALLOON- 

ID REM 1$ : THE INITIAL 
IS REM I: ASCII NUMBER FOR 1$ 

2D REMSL: SCREEN LOCATION 
2S REM T$ : TEXT MESSAGE 
3D REML$ : LETTER IN TEXT 
35 REM A : ASCII CODE NUMBER 
4D REMJ : A COUNTER 
45 REM K$ : KEY INPUT 
SD REM A$ : THE ANSWER INPUT 
UQ REM X: RANDOM NUMBER 
b5 REM Y: RANDOM NUMBER 
70 REM X$ : STRING OF X 
75 REM Y$ : STRING OF Y 
SO REM V : VALUE OF RESPONSE 

AS REM- 

1DD G0SUB1DDD:REM—SETUP 
2DD GOSUB 20D0: REM—QUESTION (S) 

300 GOSUB 3000: REM—BURST 
400 END 
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SETTING UP THE SCREEN 



This subroutine has several little parts. First, we 
put a title for the game across the top of the 
screen. Second, we draw the balloon. Third, we 
get the initial and put it to the left of the balloon. 
Last, we explain the game. Let's look at each part 
individually. 

1DD0 REfl-SETUP- 

1010 POKE 53572-123: REM—CHAR. SET 2 
1020 POKE 532S1-.0:PRINT CHR$(147): 

POKE 532fll-il 

1030 T$ = ’ ’BURST THE BALLOON’ ’ 

1040 SL = 1034: G0SUB1500 


Line 1010 selects character set number 2 for 
display. Line 1020 sets up a white screen (color 1) 
on which we will display black text (color 0). We 
did both of these things in the last chapter. 
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We want the words BURST THE BALLOON to 
be displayed on the top row of the screen. To do 
this we assign the text to a variable called T$ (for 
text), assign a beginning screen location (SL) and 
call a separate subroutine. Subroutine 1500 will 
do just what the fourth subroutine in Chapter 4 
(THE WINNER) did--it will output T$ starting at 
the SL we assign. We'll look at it at the end of this 
section. 

1050 DATA 1175-.U7b-.lE13-.lEm-.lE17-.12ia 
lObO DATA 1E5E, 125=1 •, 12=12 -. 1241 -.1332-.1334 
1070 DATA 1373-.1374-.1377-.1378-.1415-.mib 
1060 FOR J =1T018 
1010 READ SL:POKE SL-.ASC (’ 'O’ ’) 

1100 NEXTSL 


This section draws the "balloon" on the right 
side of the screen. The balloon is made from letter 
O's and takes 18 screen locations. As you can see, 
these 18 locations are stored as DATA. Line 1070 
READs the DATA and POKEs the letter O in each 
of the locations. 

1110 T* = ’ ’TYPE YOUR FIRST INITIAL: • • 

1120 SL = 1544: COSUB 1500 
1130 GET I$:IF 1$ = • ’ • • THEN 1130 
1140 1 = ASC(I$) 

1150 POKE 12b8-<I 
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Lines 1110 and 1120 display the text TYPE 
YOUR FIRST INITIAL: starting at location 1544, 
on the 14th row. The command GET 1$ in line 
1130 reads the keyboard--if a character has been 
pressed it is called 1$. If no character has been 
pressed, however, the program moves on. That's 
why we check: if 1$ is empty (notice that there are 
no spaces inside the quotation marks) we go back 
to GET 1$. Line 1130 makes sure that we actually 
have a character in 1$. 

Line 1140 gets the ASCII code number for 1$ to 
use in the next line--the initial is displayed opposite 
the balloon, on the left side of the screen. 

llbD T$ = "ANSWERONE(2UESTI0NCORRECTLY-. 
AND" 

1170 SL = 1L24: G0SUB1500 
llflO T$ = • ’YOUR INITIAL WILL BURST THE 
BALLOON.•’ 

lno SL = lbb4: G0SUB1500 
1200 FOR J = 1 TO 2000: NEXT J 
1210 RETURN 

Two more lines of text have to be displayed. 
We assign each of them to T$, give them starting 
locations (SL) and call subroutine 1500 to display 
them. Finally we insert a pause before going on. 

Before we go on to the game, let's look at 
subroutine 1500. It is almost identical to the pro¬ 
cedure we used at the end of Chapter 4: 
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1500 REM-DISPLAY TEXT- 

1510 FOR J = 1 TO LEN (T$) 
1SH0 L$ = f1ID$(T$iJil) 

1530 A = ASC (L$) 

1540 POKE SL+J-l-iA 

1550 NEXT J 
1SL0 RETURN 


The only real difference is how we decide 
where to POKE each character. Say we want the 
text to start at screen location 1544, so we assign 
that number to SL. The first time through the loop 
J is 1. Now 1544 + 1 is 1545, so we must sub¬ 
tract 1 to get the correct number. If you trace this 
formula through, you will find that adding the 
original SL to J and subtracting 1 works just fine. 


ASKING THE QUESTION 



NON THAT I'VE CONNECTED 

THIS MODEM. HE CM 
CAU UP OTHER 
COMPUTERS. 


^donTtou 

1 THINK U/E 
SHOULD BE 
WORRIED 
ABOUT 










In this section we pose arithmetic problems until 
the player gets one right. To pose the problem, we 
pick two random numbers called X and Y, ask 
how much is X plus Y, get the input, and evaluate 
whether the input is correct: 

2000 REM-QUESTION (S)- 

201D X = INT (100 * RND (1) ) +1 

2020 Y = INT (100 * RND (1) ) +1 

2030 G0SUB 2500: REM—ERASE BOTTOM OF SCREEN 

2040 X$ = STR$ (X): Y$ = STR$(Y) 

2050 T$= "HOblMUCHIS " +X$+ ” + ” +Y$ + 

» i^i i 

20t0 SL = 1544: G0SUB1500 

2070 SL = 1L30: G0SUB 2700: REM—GET INPUT 

20S0 V = VAL (A$) 

20*10 IF VOX+Y THEN 2010 
2100 G0SUB 2500 
2110 RETURN 
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Lines 2010 and 2020 pick two numbers at ran¬ 
dom between 1 and 100. The subroutine at line 
2500 erases the bottom of the screen so that we 
can put new text on it; we'll look at it shortly. 

Now we need to put the problem on the screen. 
The text will have 5 parts to it: 

1) the words HOW MUCH IS 

2) the first number (X) 

3) a plus sign ( + ) 

4) the second number (Y) 

5) a question mark (?) 

If X is 34 and Y is 87, the text should read 
HOW MUCH IS 34 + 87? We want to call this 
text T$ so that we can use subroutine 1500 to 
display is on the screen. To do this, everything in 
T$ needs to be a string. Therefore we must change 
X and Y to strings. That's the reason for the func¬ 
tion STR$ in line 2040--it changes the number 
inside the parentheses to a string. Having done 
that, line 2050 adds the 5 little strings together 
and calls them T$, then line 2060 displays them. 

Line 2070 calls another subroutine which gets 
the input using the GET command. We'll look at 
this routine soon. For now it's enough to know that 
it gets an answer from the player which we call A$. 

Next we need to compare the answer (A$) to 
the value X + Y (the real answer to the problem). 
But we cannot compare a string to a number. The 
VAL function in line 2080 is the opposite of the 
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STR$ function--it changes the string in parentheses 
into a number (if the string is made up of 
numbers). We can compare V to X + Y. If they are 
equal, the answer is correct, and we clear the 
bottom of the screen again and end the 
subroutine. If they are not equal we send the pro¬ 
gram back to line 2010: pick two more random 
numbers, and so on. This routine will continue until 
the player answers a problem correctly-until V 
equals X+Y. 


CLEARING THE SCREEN 


ARE YOU 
h FEELING OKI 


$ 



Here is the subroutine which erases rows 14 
through 17 of the screen: 


2500 REM-ERASE BOTTOM OF SCREEN- 

2510 FOR SL = 1544 TO 1703 
2520 POKE SL-.32 
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2530 NEXT SL 
2540 RETURN 

We simply put a space (character 32) in every 
screen location we want to erase. 


GETTING INPUT 



We have already used the GET command to 
get one character of input. This subroutine uses it 
repeatedly to get characters and display them on 
the screen until the player presses return. 

2700 REM-GET INPUT- 

2710 A$ = •''' 

2720 GET K$: IF K$ = '"' THEN 2720 
2730 IF ASC (K$) =13 THEN 27fi0 
2740 A$ = A$ + K$ 

2750 POKE SLiASC(K$) 
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27b0 SL = SL +1 
277D GOTO 2720 
27fi0 RETURN 


This routine gets one key (K$) of input at a time 
and puts it together into a string called A$ (for 
answer). Line 2710 makes sure that A$ is empty to 
begin with--we don't want A$ to contain the last 
incorrect answer. Line 2720 gets the input; it waits 
until the player has pressed a key and calls that 
character K$. Then it checks to see if the code 
number of the key is 13, which would mean that 
the player pressed return. In that case the input is 
through and we end the routine. 

In the key pressed was not return we add that 
character to A$, thus building up A$ one key at a 
time. Then we display the character on the screen 
(line 2750). Remember that we had set SL to 1630 
before we called this subroutine, so the first char¬ 
acter is displayed at location 1630. Since we want 
the next character to be displayed next to this 
one, we add 1 to SL before we go back to line 
2720 to get the next character of input. 

A drawback of this routine is that the player 
cannot delete if he or she makes a mistake. The 
addition of a couple of commands would take 
care of this problem. Can you think of what to 
do? We'll give some hints in the Variations section 
at the end of the chapter. 
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BURSTING THE BALLOON 



The QUESTION(S) subroutine ends only when 
an answer is correct. Therefore it is time to burst 
the balloon. This subroutine must do three jobs: 1) 
animate the initial over to the balloon; 2) make the 
balloon disappear; and 3) display the message 
RIGHT! "inside" the balloon. Let's look at these 
three tasks separately. 

3000 REM-BURST THE BALLOON- 

3010 FOR SL = 12ba TO 12*11 
3D2D POKE SL-.32 

3030 POKE SL+l-iI 

3040 FOR J = 1 TO SO: NEXT J 

3050 NEXT SL 


0 This FOR-NEXT loop looks tike our sample ani- 
0 motion program in the last chapter. We know 
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exactly where the initial must start (location 1268) 
and where it must end (1292). We POKEd it at 
location 1268 earlier, and 1292 is one of the O's 
of the balloon (see the DATA). The loop goes only 
to 1291 since each time through it erases a loca¬ 
tion and displays the initial one location over. Thus 
the last time through SL will be 1291 and the 
initial will be drawn at 1292. 

301.0 RESTORE 
307D FOR J = 1 TO Ifl 
3060 READ SL: POKE SL-.32 
3010 NEXT J 


One more new command: RESTORE goes to the 
beginning of the DATA so that we can READ it 
again. Thus we READ all the 18 locations of the 
balloon, just as we did to display it, but this time 
we POKE spaces into the locations to erase the 
balloon. 


3100 T$= "RIGHT!” 

3110 SL = 12*13: GOSUB1SOO 
3120 RETURN 

Finally we display the text RIGHT! at a location 
which was inside the balloon. 
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VARIATIONS 



Once again, you can put the whole program 
together by looking at the program lines through 
the chapter. There are many improvements you 
could make. For instance, you could change the 
format of the screen by designing the balloon 
differently, putting more design around the 
screen, or changing the color of the balloon (see 
the Variations in Chapter 4 for hints about color). 
Here we'll discuss two more substantial variations: 

1) We mentioned earlier that the INPUT routine 
will not let the player delete mistakes during input. 
A couple of changes can fix this. The routine 
already checks to see if the key pressed was the 
return key. How about if it also checks whether 
the key is a "delete" key? You can define any key 
you want to mean delete. Suppose we want the 
asterisk to delete the previous character. Between 
lines 2730 and 2740 you would insert a line that 
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evaluates IF ASC(K$) = ASC("*"). If it does, you 
would instruct the program to subtract 1 from SL 
and POKE a space at SL, and then go back to get 
more input. With these hints we will let you con¬ 
struct the complete code. 

2) Our game uses addition problems. You could 
easily make it give subtraction, multiplication, or 
division problems. Only two lines in the 
QUESTION(S) subroutine need to be changed: the 
line that displays the problem and the line that 
evaluates the answer. 
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6 Scrambled 
States 


All of the techniques we have learned, plus 
some new ones, will be combined here to create a 
longer game program than our others. In this 
game it will take three moves to get from the start 
to the finish line. To move, the player will be pre¬ 
sented with the name of one of the states of our 
nation, but the name will be scrambled and the 
player will have to figure out which state it is. We 
will give the player six attempts to make the three 
moves. If he or she cannot make it to the finish line 
by then, the game will end. 

The variable names and subroutine list look like 
this: 

4 REM-SCRAMBLED STATES- 

10 REMSL : SCREEN LOCATION 
lb REM T$ : TEXT MESSAGE 
20 REM L*: LETTER IN TEXT 
24 REM A : ASCII CODE NUMBER 
32 REMJ : A COUNTER 
3b REM : KEY INPUT 
40 REM R$ : RESPONSE 
44 REM 1$ : THE INITIAL 
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52 REMS* (ID) : ARRAY OF ID STATES 

Sb REM U$(20) : ARRAY OF USED LETTERS 

bO REM A$ : ANSWER 

b4 REM N$ : NAME OF STATE 

bfl REM T : TURN NUMBER 

72 REM P : POSITION OF INITIAL 

50 REM 0$ : GAME OVER? 

84 REM L : LENGTH OF N$ 
aa REM R : RANDOM NUMBER 

12 REM- 

10D GOSUB1000: REM—SET UP 
200 GOSUB 20D0: REM—LOAD STATES ARRAY 
300 GOSUB 3000: REM—THE GAME 
400 END 


We introduce no new BASIC concepts or com¬ 
mands in this game, but we use the ones we know 
in more complex ways. You can tell by the long list 
of variable names that we need to store many 
different pieces of data. We also use several 
subroutines--the main body of the program calls 
only three of them, but these subroutines call 
others. Since we use eight subroutines altogether, 
it might be a good idea to list them here for 
reference: 

1000 Set up the screen 
1500 Put text on the screen 
2000 Load array of states 
2300 Erase bottom of screen 
2700 Get input 
3000 The game 
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3500 Scramble a state 
3800 Move the initial 




Some of these will be familiar; we have already 
used subroutines to get input, erase part of the 
screen, put text on the screen, move an initial, and 
load an array of text. These little subroutines are 
useful tools-they become a kind of library for the 
programmer to use over and over again. The only 
really different routines in this program are the 
GAME and the SCRAMBLE subroutines. 


SETTING UP THE SCREEN 



To prepare the player for the game, we set up 
the screen to show that the initial must move 
through three stations to get to the finish. Once 
again, we leave it to you to make the "board" 
look more elaborate. You can easily add decora- 
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tions. In this subroutine, we represent the stations 
with plus signs, get the initial and place it at the 
start, and explain how the game works. 


1D0D REM—SET UP THE SCREEN- 

1010 POKE 53B75-.B3 

1050 POKE 535A1ib: PRINT CHR$ (147) 

1030 POKE S3EAlil 


As in the last two games, we select character 
set 2 and set the screen color; here we use white 
(color number 1) with blue (color 6) tor display. 

1040 T$ = "START'' 

1050 SL = 11A7: G0SUB15Q0 
lObO T$ = 1 ’FINISH' ’ 

1070 SL = 151b: G0SUB1500 
lOflO FOR SL = 15bfl TO IB^fi STEP 10 
IBID POKE SLiASC (''+” ) 

1100 NEXT SL 

The subroutine at line 1500 puts text on the 
screen. It is identical to subroutine 1500 of Chap¬ 
ter 5. It uses the variables T$ and SL for the text 
and starting screen location. Here we use it to put 
the words START and FINISH on row 5 and four 
plus signs on row 7 of the screen. The plus signs 
go at locations 1268, 1278, 1288, and 1298, so 
we use a loop that steps by 10. Rows 5 and 7 
should look like this.* 
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START FINISH 

+ + + + 


Next we ask the player for his or her initial and 
use GET for input. Then we POKE the initial in 
place of the first plus sign. 

1110 T$ = ' 'TYPE YOUR FIRST INITIAL:'' 

1120 SL = 1544:GOSUB 1500 
1130 GET 1$: IF 1$ = " " THEN 1130 
1140 POKE IBtifiiASC (1$) 

Now we need four lines of text to explain the 
game. Every time we have put a single line of text 
on the screen so far we have needed two program 
lines: one to assign text to T$ and one to assign a 
starting SL and GOSUB 1500. Here is a shorter 
technique, using DATA statements to store the 
text: 

1150 DATA '' YOU HAVE L TRIES TO GET TO THE 
FINISH.'' 

llbO DATA ' 'TO MOVE-. YOU MUST UNSCRAMBLE' • 

1170 DATA ' 'THE NAME OF A STATE IN OUR 
COUNTRY.’' 

llflO DATA ' 'PRESS RETURN TO BEGIN:'' 

1110 FOR SL = lb24 TO 1744 STEP 40 
1200 READ T$: GOSUB 1500 
1210 NEXT SL 


This loop assigns values to SL, stepping by 40 
because there are 40 screen locations on each row 
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of the screen. Thus, the first time through the loop 
SL is 1624 and we READ the first T$ from DATA-- 
T$ is displayed starting at location 1624. The sec¬ 
ond time through SL is 1664 and the second string 
of DATA is displayed there. Thus the texts are 
displayed on consecutive screen rows. 

1220 GET R$: IF R$ = " ’' THEN 1220 
1230 RETURN 

Our last line of text asked the player to press 
return. Line 1220 gets one character input. We 
really don't care here what the input is--whatever 
key is pressed, the subroutine will end. 


INPUT AND OUTPUT 



These two subroutines are the same ones we 
used in the last game. We reproduce them here 
for your convenience. 
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1500 REM —PUT TEXT ON SCREEN— 

1510 FOR J = 1 TO LEN (T$) 

1520 L* = MIl>$(T$-.J-.l) 

1530 A = ASC(L$) 

1540 POKE SL+J-liA 
1550 NEXT J 
ISbO RETURN 

2700 REM-GET INPUT- 

2710 A$ = " • • 

2720 GET K$: IF K$ = " ’' THEN 2720 
2730 IF ASC (K$) =13 THEN 2760 
2740 A$ = A$ + K$ 

2750 POKE SLiASC (K$) 

27b0 SL = SL +1 
2770 GOTO 2720 
2760 RETURN 

Let's add a line to enable this routine to delete 
mistakes, as we discussed in the Variations in 
Chapter 5. Say we decide that the asterisk will be 
the delete key. Line 2730 checks if the input is the 
return key. If it is not, we will check whether the 
input is an asterisk. If so, we will subtract 1 from 
SL to move backward one screen location, POKE 
a space at that location, and go back to get the 
next input: 

2735 IF ASC (K$) = ASC (• ’) THEN SL-SL-1: 

POKE SL-,32: GOTO 2720 


If you add this line to the program you should 
also display a message somewhere on the screen 
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telling the player that the asterisk will delete 
mistakes. 


STORING THE STATES 



This subroutine is similar to the one in Chapter 1 
in which we stored several fortunes into an array. 
Here we have ten state names in DATA state¬ 
ments. Notice that you can put more than one 
piece of string data on a DATA line, as long as 
you separate the strings with commas. We READ 
the ten states into an array we call S$ (S for 
state), and before we use the array we DIMension 
it—that is, we tell the computer to reserve ten spac¬ 
es in its memory for our array. 

2000 REM-LOAD STATES INTO ARRAY- 

2010 DATA • 'OHIO'' •.' 'KANSAS’' 

'' NEW YORK " i ” CALIFORNIA •' 
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2020 DATA ' • GEORGIA NORTH DAKOTA • 1 

" NEVADA" 

2030 DATA ' ’OREGON’' ■, ’ ’FLORIDA’' 

"NEW MEXICO” 

2040 DIMS*(10) 

2DSD FOR J = 1 TO 10 
20b0 READ S* (J) 

2070 NEXT J 
2060 RETURN 


1 


The loop in lines 2050 to 2070 READs ten piec¬ 
es of data (the names of the states) and stores 
them in the array. The name OHIO is then stored 
as S$(l), NEW YORK is S$(3), and NEW MEXICO 
is S$(10). Later on in the program we will use the 
array in the same way that we used the fortunes 
array. We'll pick a number at random and use 
that number to select a cell of the array. Then 
we'll take the name of the state that is stored in 
that cell and scramble it. 
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THE GAME 


SPEED, YOU'RE A 
HERO! YOU'VE 
SAVED THE 
'Kcrrr!! 


NOTHING T0\ 
rr. WHEN YOU 
KNOW ABOUT 
COMPUTERS. 


We are giving the player 6 turns to get to the 
finish line. Each turn consists of trying to unscram¬ 
ble the name of a state. If the answer is correct, 
the initial will move to the next plus sign. This 
means that we have to keep track of several 
things: 

1. Where the initial is 

2. If the initial has gotten to the finish line 

3. How many turns the player has had 

The GAME subroutine is fairly complex. It 
reads like a miniature program and uses several 
subroutines within it. Before we look at the BASIC, 
let's outline the steps we'll have to take in ordinary 
English: 

Check to see if the player has won OR run out 

of turns. 

If either of these conditions is true, then we give 

the appropriate message. 
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If neither is true we: 

1. Clear the bottom portion of the screen. 

2. Pick a state name at random. 

3. Scramble the letters in it. 

4. Ask the player to unscramble it. 

5. Evaluate whether the answer is correct. 

a. If it IS correct, then we move the initial 
one step and check whether the player 
has now won. 

b. If it is NOT correct then we tell the player 
the answer. 

c. In EITHER case we add 1 to the number 
of turns and go back to the first step 
(Check to see if the player has won....) 

Lines 3030 to 3170 perform these steps in 
BASIC. Lines 3010 and 3020 initialize four varia¬ 
bles we need to use. U$(20) is an array we need 
in the SCRAMBLE section. T stands for turn 
number, and we set it to 1. P is the position (loca¬ 
tion) of the initial, which starts at 1268. OS tells us 
if the game is over because the player won--we set 
it initially to "NO". 

3000 REM-THE GAME--— 

3010 DIMU4C20) 

3020 T = 1: P = 12tfl: 0$ = ’ ’NO’' 

3030 IF T > b OR 04 = ' ’YES’ ’ THEN 31fl0 
3040 G0SUB2300: REM—ERASE 

3050 G0SUB3500: REN—SCRAMBLE 

30bQ T* = ’ • TYPE YOUR ANSWER:'' 
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3070„ SL = lbb4: GOSUB1500 

3060 SL = l?0fl: GOSUB 2700: REM—INPUT 

30*10 SL = 1764 

3100 IF A$ = N$ THEN 3140 

3110 T$ = ' • SORRY-, THE ANSWER IS '' + N$ 

3120 GOSUB 1500 

3130 GOTO 31b0 

3140 T$ = '' RIGHT! • •: GOSUB 1500 

315D GOSUB 3600: REPI—ANIMATE 

31bQ T = T +1 

3170 GOTO 3030 

31A0 GOSUB 2300: REM—ERASE 

31*10 SL = 1544 

3200 IF 0$ = ' 'YES'' THEN 3230 

3210 T* = ''SORRYi YOUR TURNS ARE UP. •' 

3220 GOSUB 15D0: GOTO 3250 

3230 T$ = " CONGRATULATIONSi YOU WON! • ’ 

3240 GOSUB 1500 

3250 RETURN 


Line 3030 checks for two conditions: if the turns 
are up or the player has won, the program skips 
past the above section, to line 3180. If the game is 
not over, we clear the bottom of the screen 
(subroutine 2300), scramble the state and ask the 
question (3500), get the answer (2700) and evalu¬ 
ate it. If A$ (the answer) equals N$ (the name of 
the state) then the player is right and we display 
the word RIGHT! If wrong, we say SORRY, THE 
ANSWER IS (the correct name). 

Sooner or later the player will either win or run 
out of turns, and then the program will skip to line 
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3180, where it will dear the bottom of the screen 
and decide if the player has won or not. If 0$ is 
YES that means the player is won, so we display 
the congratulations message. If 0$ is not YES the 
player has run out of turns, so we display the 
appropriate text. 


CLEARING THE BOTTOM 
OF THE SCREEN 



This subroutine is virtually identical to the one in 
Chapter 5 which cleared the bottom of the screen. 
Here we erase 7 rows of the screen: 


8300 REM —ERASE ROUS IS TO 81— 

8310 FOR SL = 154*4 TO 1683 
8380 POKE SLi38 
8330 NEXT SL 
8340 RETURN 
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SCRAMBLING THE STATE 



We have an array of 10 states stored as 
S$(10). Whenever it comes time to ask a question, 
we want to pick one of the states and scramble 
the letters in it. 

The first thing we need to know is the number 
of letters in the state (which we call N$). Then LEN 
(or length) function, remember, tells us how many 
characters are in a string. So LEN(N$) represents 
the number of characters in the state's name. We 
say characters and not just letters in the state 
because sometimes there are spaces also, as in 
NEW MEXICO. 

We call the number of characters in the state L. 
To scramble them up, we go through a series of 
steps: 

1. Pick a random integer (called R) between 
1 and L. 

2. Display character R on the screen. 
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3. Pick another random integer R between 1 
and L. 

4. Display character R next to the character 
already on the screen. 

Repeat the above steps L times altogether, so 
there will be L characters displayed on the screen. 

There is only one thing wrong with this plan. 
You know by now that if you tell the computer to 
pick a random integer between 1 and 7, and do it 
7 times in a row, it might pick the same number 
each time. If your state was FLORIDA (which has 
7 letters), and the computer picked the number 4 
over and over again, you would get 

RRRRRRR 

displayed as the scrambled version of FLORIDA. 
That wouldn't be good. 

Therefore, we need a way to tell the computer: 
keep picking random numbers between 1 and 7, 
but don't pick the same number twice. In other 
words, we have to keep track of which numbers 
were already used. The best way to do this is to 
create a new array, which we call U$ (for Used). 
Before we begin scrambling, we put the word 
"NO" in each cell of U$ to mean that we have 
not yet used that cell number. As each cell gets 
used (because the computer picked that number) 
we change what's stored in it to "YES". (We 
DIMensioned this array at the beginning of the 
GAME section.) Let's change our series of steps to 
show this addition: 
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1. Pick a number at random (R) between 1 
and L. 

2. Check if that number has been used yet. 

2a. If it has been used, go back to step 1. 
2b. If it has not been used then: 

Put "YES" in that cell of U$, and 
Display character R. 

Repeat these steps L times. 

Here is the BASIC code: 

3500 REI1-SCRAMBLE A STATE- 

3510 R = INT (ID * RND (1) ) +1 
3520 N$ = S$ (R) 

3530 L = LEN(N$) 

3540 FOR J = 1 TO L 
3550 U$ (J) = ''NO'' 

3SbO NEXT J 

3570 T$ = ' 'WHAT STATE IS THIS?’ 1 

3SA0 SL = 1544: G0SUB1500 

35*10 FOR J = 1 TO L 

3b00 R = INT (L* RND (1) ) +1 

3bl0 IF U$ (R) = ’ 'YES’ 1 THEN 3bOD 

3b20 U$ (R) = ’ 'YES'' 

3b30 A = ASC (MI0$ (N$-,R-,1) ) 

3b40 POKE J+1SA7-.A 
3bS0 NEXT J 
3bb0 RETURN 

R is a random integer between 1 and 10. Why 
10? Because we have 10 states. If R is 1 then 
S$(R) is OHIO, the first state in the DATA list. To 
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make our code easier to read, we store S$(R) as 
N$. If N$ is OHIO, then L is 4, the number of 
characters in OHIO. 

The loop in lines 3540 to 3560 initializes the U$ 
array. It puts the word "NO" in 4 cells of U$ (if L 
equals 4). In other words, U$(l), U$(2), U$(3), I 
and U$(4) will all contain the word "NO" to start 
with. There are 4 letters in OHIO--all of them have 
NOT been used yet. 

After we ask WHAT STATE IS THIS? we get to 
the part of the subroutine that actually scrambles 
the letters and displays them. We go through the 
FOR-NEXT loop in lines 3590 to 3650 L times. In 
our example, using OHIO, L equals 4. 

Each time through we pick a random number 
between 1 and 4 (that is, L). Then we check: if that 
cell of U$ contains "YES" because it's been used 
already we go back and pick another number. 
The computer will keep picking until it finds a ran¬ 
dom number corresponding to a cell of U$ which 
contains the word "NO". At that point it will skip 
line 3610 and proceed to do two things. First, put 
"YES" in that cell number so that the computer 
can't display the same letter again. Second, dis¬ 
play that letter from the name of the state. 

Line 3630 gets a code number (A) for the char¬ 
acter we are going to display. Since R is the num¬ 
ber representing the character's position in N$, 
MID$(N$,R,1) is that character. Therefore, in line 
3630 we take the ASCII number of that character, 
and in line 3640 we POKE it into the desired loca- 
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tion. The formula J+ 1587 will start the display at 
location 1588, since J is 1 to begin with, and will 
continue displaying characters side by side until L 
characters have been displayed. 

It would be a good idea at this point for you to 
go over the code a few times and see how it does 
what our steps above it do. Convince yourself that 
every time the program goes to this subroutine it 
picks a new state, calls it N$ and calls its length L, 
then goes around L times picking different random 
numbers each time and displaying the character 
of N$ corresponding to that number. 

This subroutine does only this job. Refer back to 
the main GAME subroutine. Right before SCRAM¬ 
BLE we cleared the bottom of the screen. Right 
after it we get the answer from the player and 
evaluate it. If the answer is correct we have to 
take care of one more piece of business. 


MOVING THE INITIAL 


YOU'VE GOT TO 
LEARN TO USE 
THESE 
uCOMPUTERS. 


HEY, I BROUGHT THIS 
GREAT GAME FROM 
TKILLER’S " 
WARE¬ 
HOUSE. . 
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Each right answer moves the initial one more 
station toward the finish. We put plus signs to 
mark the steps, and we placed them 10 columns 
apart, at locations 1278, 1288 and 1298 (the 
finish). Also, remember, at the beginning of the 
GAME subroutine we initialized P to 1268 to keep 
track of where we started the initial. 

To move the initial we'll go through the same 
basic steps that we used in the last two games: 

1. Erase the initial where it is now. 

2. Draw it one column further over. We repeat 
these steps 10 times to move the initial 10 
columns. Then we do two more necessary things. 
We add 10 to P so that we know where the initial 
ends up after it's moved, and we check to see if P 
now equals 1298. If it does, this means that the 
player has won, and we put the word "YES" into 

o$. 

3fl00 REP1-ANIMATE THE INITIAL- 

3A10 FOR SL = P TO P+1 
3A20 POKE SL-.32 
3A30 POKE SL+liASC (1$) 

3fl4D FOR J = 1 TO SO: NEXT J 
3AS0 NEXT SL 
3flb0 P = P +10 

3A70 IFP = 121STHEN0$ = ’’YES" 

3AS0 RETURN 


The animation here is just the same as that in 
the last chapter. We put a space where the initial 
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is and then display the initial one location further 
over, until the ititial has moved 10 screen loca¬ 
tions. 

0$ had been set to "NO" at the beginning of 
the game. Whenever P = 1298 it will be set to 
"YES". Back in the GAME section, line 3030 will 
now be true, and the program will skip over the 
loop. When it gets to line 3200, since 0$ does 
equal "YES" it will congratulate the player and 
end. 


FUN AND GAMES 



At this point the variations are up to you. 
Through the first five chapters we suggested many 
variations. You could try almost any of them in 
this game if you want. More important, though, is 
for you to think up your own variations and your 
own new games. Create your own coding 
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routines. Think up more ways to use the random 
function. Do fancier animating. Invent totally new 
games. 

We have covered many commands and fea¬ 
tures of the Commodore 64, but there is still plen¬ 
ty for you to explore and learn. In particular, you 
can do much more with color and you can also 
add sound to your programs. 

Programming is a combination of using what 
you already know and using your imagination. 
We have tried to supply you with some essential 
concepts and techniques for game programming. 
Of course, there is always more to learn, for you 
and for the most experienced programmer. Hope¬ 
fully you will use what you have learned to create 
exciting games, and you will go on learning. The 
most important thing you can do is to have fun 
progamming! 
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Chapter reference for new concepts and terms used in 
this book. Reserved words in BASIC are capitalized. 


NAME 

CHAPTER 

ARRAY 

1,3,6 

animation 

4-6 

ASC function 

3 

CHR$ function 

3 

DIM 

1,3,6 

FOR/NEXT 

1-6 

GET 

4-6 

initializing 

1-6 

INT function 

1-6 

LEN function 

2-3 

MID$ function 

2-3 

ON/GOSUB 

3 

POKE 

4-6 

random 

1,3,4,5,6 

READ/DATA 

1,3,6 

RESTORE 

5 

STR$ function 

5 

subroutines 

1-6 

VAL function 
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If you already know some beginning BASIC then 
you're ready to start programming your Corntno- 
dore a ’64“to play terrific games. 

With.simple, easy-to-follow directions your clue-find¬ 
ing friend SPEED WALKER will take you step-by-step 
through programs of mystery and adventure. Pro¬ 
grams that you can expand and improve with what 
you learn in this book. 

The rest is up to you and your imagination. 

GET READY...GET SET...START PROGRAMMING! 



































